﻿Public Class MenuSite

   
    Private Sub OrographieToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrographieToolStripMenuItem.Click
        Dim intOrg As New OrHyGraSit
        intOrg.Visible = True
    End Sub

    Private Sub GéologiegéomorphologieToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GéologiegéomorphologieToolStripMenuItem.Click
        Dim intGeolGeol As New GeolGeomSit
        intGeolGeol.Visible = True
    End Sub

    Private Sub ClimatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClimatToolStripMenuItem.Click
        Dim intClim As New ClimSite
        intClim.Visible = True
    End Sub

    Private Sub HydrogéologieToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HydrogéologieToolStripMenuItem.Click
        Dim inthydG As New HydroGeoSit
        inthydG.Visible = True
    End Sub

    Private Sub HydrologieToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HydrologieToolStripMenuItem.Click
        Dim inthyd As New HydrSit
        inthyd.Visible = True
    End Sub

    Private Sub SédimentologieToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SédimentologieToolStripMenuItem.Click
        Dim intSedim As New SedimSite
        intSedim.Visible = True
    End Sub

    Private Sub StationsMétéorologiquesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StationsMétéorologiquesToolStripMenuItem.Click
        Dim intStatMet As New StatMeteo
        intStatMet.Visible = True
    End Sub

    Private Sub InfrastructureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfrastructureToolStripMenuItem.Click
        Dim intEquip As New Equipement
        intEquip.Visible = True
    End Sub

    Private Sub RéseauHydrographiqueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RéseauHydrographiqueToolStripMenuItem.Click

    End Sub

    Private Sub FloreFauneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FloreFauneToolStripMenuItem.Click
        Dim intFloreSys As New FloFauNouv("")
        intFloreSys.Visible = True
    End Sub

    Private Sub HabitatsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HabitatsToolStripMenuItem.Click
        Dim intHab As New HabitatsGlob
        intHab.Visible = True
    End Sub

    Private Sub VégétationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VégétationToolStripMenuItem.Click
        Dim intVeg As New VegetationNouv
        intVeg.Visible = True
    End Sub

    Private Sub HabitatsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HabitatsToolStripMenuItem1.Click
    
    End Sub

    Private Sub VégétationToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VégétationToolStripMenuItem1.Click
        Dim intVegPatr As New VegPatrim
        intVegPatr.Visible = True
    End Sub

    Private Sub LocalitésToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LocalitésToolStripMenuItem.Click
        Dim intLocl As New LocaliteSite
        intLocl.Visible = True
    End Sub

    Private Sub PopulationActiveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PopulationActiveToolStripMenuItem.Click
        Dim intPop As New SuiviPopSit
        intPop.Visible = True
    End Sub

    Private Sub NiveauDInstructionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NiveauDInstructionToolStripMenuItem.Click
        Dim intNivInst As New StructInstr
        intNivInst.Visible = True
    End Sub

    Private Sub ActivitésHumainesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActivitésHumainesToolStripMenuItem.Click
        Dim intActHum As New ActivitHumSit
        intActHum.Visible = True
    End Sub

    
    Private Sub BénéficesDusageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BénéficesDusageToolStripMenuItem.Click
        Dim intBenf As New ActBenefice
        intBenf.Visible = True
    End Sub

    Private Sub StatutsFonciersDeLespaceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatutsFonciersDeLespaceToolStripMenuItem.Click
        Dim intSitFanc As New SiteStFoncier
        intSitFanc.Visible = True
    End Sub


    Private Sub DysfonctionnementsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DysfonctionnementsToolStripMenuItem.Click
        Dim intDysf As New DysfonSite
        intDysf.Visible = True
    End Sub

    Private Sub PlanDeGestionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanDeGestionToolStripMenuItem.Click
        Dim intPAG As New PlanAmGest
        intPAG.Visible = True
    End Sub

    Private Sub RéglementationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RéglementationToolStripMenuItem.Click
        Dim intReg As New RglementNouv
        intReg.Visible = True
    End Sub

    Private Sub ActeursconcernésToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActeursconcernésToolStripMenuItem.Click
        Dim typX As New TypologieNivX
        typX.Text = "Concernés"
        typX.Table1 = "ConcernCateg"
        typX.Table2 = "ConcernTyp"
        typX.Visible = True
    End Sub

    Private Sub EtudesComplémentairesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EtudesComplémentairesToolStripMenuItem.Click
        Dim intEtudComp As New EtudCompl
        intEtudComp.Visible = True
    End Sub

    Private Sub ZonageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZonageToolStripMenuItem.Click
        Dim intZong As New ZonageSit
        intZong.Visible = True
    End Sub

    Private Sub EtudesDiagnostiquesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EtudesDiagnostiquesToolStripMenuItem.Click
        Dim intDiagS As New DiagSite
        intDiagS.Visible = True
    End Sub
End Class